DEFINE CLASS cd_mercaderia as cd_entidad OF cd_entidad.prg